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DINAP — Distribuidora Nacional de Publicações 
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Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Pu- 
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Processamento de textos é uma solução Em geral, ed ad Find mais 

nas corriqueiramente, mudamos de idéia so- 
elegante, quase mágica, que & bre o que desejamos transmitir. Como 
tecnologia deu a muitos dos problemas sesabe, a correção e modificação de tex- 


que têm atribulado os escritores, tos Ja csoritos toma tempo, € O resulta: 

a do final acaba todo rabiscado. Pior, se 

desde a invenção da escrita. houver muitas alterações, é preciso re- 
bater ou reescrever todo o documento, O processamento de textos por com- 


À | e novos erros podem aparecer. Quem já  putador apresenta a vantagem imedia- 
E quase impossível produzir um tex- | experimentou escrever conhece bem es- ta de facilitar a execução de alterações, 
to perfeito logo na primeira tentativa. se torturante processo. tornando desnecessária a cansativa ta- | 











refa de “passar a limpo” o trabalho fei- 
to. Isso resulta em tremenda economia 
de tempo, o que é de utilidade mesmo 
para aqueles que não escrevem por ne- 
cessidade ou profissão. 

Já publicamos em INPUT, no arti- 
go da página 576, um programa que co- 
loca à disposição do usuário os recur- 
sos básicos de edição de texto. Se você 
tem interesse em adquirir um processa- 
dor mais potente, convém conhecer mais 
detalhadamente suas possibilidades. 





ADEUS, BORRACHA! 


Processar um texto significa simples- 
mente digitá-lo no teclado de um com- 
putador e armazená-lo na memória. 
Portanto, usando um software adequa- 
do, você poderá fazer modificações e 
correções com rapidez e eficiência, e em 
seguida proceder à impressão. Se o tex- 
to for armazenado em fita ou disquete, 
será possível carregá-lo novamente, 
sempre que necessário, para outras mo- 
dificações. 

Como vimos no artigo já menciona- 
do, com um programa elementar de pro- 
cessamento de texto, o usuário efetua as 
alterações “passeando” um cursor (ge- 
ralmente um pequeno retângulo ilumi- 
nado) sobre a tela, até a parte a ser mo- 
dificada. Escreve então sobre o texto 
que ali se encontra. Este é apagado da 
memória e substituído pelo novo texto 
— sem rabiscos e sem complicações. 

Inserir letras, palavras ou frases no 
meio de um parágrafo também é uma 
operação simples. Para realizá-la, recor- 
re-se à função de inserção dos proces- 
sadores de texto. Por meio dela, podem- 
se introduzir alguns espaços em bran- 
co e depois escrever sobre eles. O pro- 
cesso mais comum, porém, é simples- 
mente escrever o que se quer inserir, dei- 
xando por conta do programa rearran- 
jar automaticamente o restante do tex- 
to, para dar lugar ao novo. 

Estes são apenas dois dos numerosos 
recursos disponíveis em um processador 
de texto. A potência e sofisticação des- 
se software ficam evidentes quando se 
consideram os diversos “truques eletrô- 
nicos” de que é capaz para auxiliar 
quem está escrevendo. 

As funções de inserção e modificação 
de textos são chamadas recursos de edi- 
ção. Entre estes incluem-se também a 
busca e a substituição de caracteres no 
texto. A função de busca permite a lo- 
calização automática de uma sequência 
especifica de caracteres — uma palavra, 
ou mesmo uma frase — em uma parte 
ou em todo o texto. Suponhamos que, 


tendo digitado um texto muito longo, 


texto, não é preciso ser um 


queiramos fazer uma modificação em 
certo parágrafo. Não nos lembramos 
onde ele está: sabemos apenas que con- 
tém as palavras espiral inflacionária. A 
função de busca nos ajudará a descobri- 
las rapidamente. 

A função de substituição é mais po- 
derosa ainda. Ela efetua a busca de uma 
sequência determinada de caracteres por 
todo o texto, substituindo-a sempre que 
a encontrar por uma segunda sequên- 
cia. Isso é útil quando grafamos incor- 


retamente uma palavra qualquer em vá- 


rios pontos do texto, ou quando 
queremos trocar uma expressão 
empregada com frequência por 
outra de significado mais pre- 
ciso. Com a função de subs- 
tituição, podemos também 
recorrer a abreviaturas ou 
códigos na digitação de 
um texto. Por exemplo, 
se vamos escrever diver- 
sas vezes programa 
amistoso para o usud- 

rio no texto, bastará 
digitar um asterisco, 

ou qualquer outro 
símbolo, em cada 

um: dos pontos em 

que a frase deve apa- 
recer, usando poste- 
riormente a função de 
substituição. 


“HABILIDADES ESPECIAIS 


Com o processador de 


datilógrafo habilidoso para 
conseguir bons resultados. 
Mesmo que você só consiga da- 
tilografar com dois dedos, observa- 

rá um aumento considerável na sua ve- 
locidade de trabalho, pois poderá avan- 
çar “a todo vapor”, sem se preocupar 
com erros ou efeitos estéticos. 

Se sua ortografia deixa a desejar, 
procure utilizar um processador de tex- 
to dotado de corretor ortográfico (spell- 
checker, em inglês). Ele percorre o seu 
texto “olhando” cada palavra, e com- 
parando-a com um dicionário interno 
padrão (armazenado em disco). Pala- 
vras não reconhecidas — por terem er- 
ro ortográfico, ou, simplesmente, por 
não constarem do dicionário — são as- 
sinaladas. Neste ponto, dependendo do 
programa, você tem três opções: deixar 
a palavra indicada como está, corrigi- 
la manualmente, ou permitir que o pro- 
grama a substitua pela versão correta 
(muitos programas mostram uma lista 
das palavras que poderiam substituir a 
versão assinalada no texto). 
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FORMATAÇÃO 


Os processadores de texto mais po- 
tentes dispõem de uma série de recursos 
adicionais, que permitem executar o que 
chamamos de formatação do texto. A 
formatação tem por objetivo produzir 
um texto final arranjado segundo certo 
padrão estético, independente da manei- 
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ra como foi digitado. Os recursos de for- 
matação usualmente permitem especifi- 
car o espaçamento entre linhas, o núme- 
ro de linhas por página, o número de to- 
ques por linha, o tamanho da folha on- 
de vai ser impresso o texto, a numera- 
ção das páginas, cabeçalho etc. A fun- 
ção mais importante da formatação, po- 
rém (e a mais difícil de se realizar ma- 
nualmente), é a justificação das margens 
— ou seja, a definição do alinhamento 
lateral das palavras. A seção de forma- 
tação dos processadores de texto reali- 
za essa tarefa automaticamente. Muitos 
deles chegam à sofisticação de separar 
as sílabas das palavras, ao final de uma 
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linha, conforme as regras do idioma. 

Quanto à formatação, existem três ti- 
pos de processadores de texto. Todos 
eles se encarregam das mudanças de li- 
nha, permitindo ao usuário datilografar 
o texto de um parágrafo continuamen- 
te. Em geral, a tecla < ENTER> pre- 
cisa ser pressionada apenas ao final de 
um parágrafo. 

No primeiro tipo de processador de 
texto, quando uma palavra que está sen- 
do datilografada não cabe na linha, o 
cursor passa para a linha seguinte do vi- 
deo, sem se preocupar em dividi-la se- 
gundo as regras gramaticais. O texto fi- 
ca difícil de ser lido na tela. 


-+ ET 


4 
Ei pa”. Mem 





Nessa situação, o segundo tipo de 
processador de texto transporta a pala- 
vra inteira para a linha de baixo (méto- 
do denominado word-wrap, em inglês). 
A leitura no vídeo torna-se bem mais fá- 
cil, mas a margem esquerda do texto fi- 
ca irregular, o que no Brasil recebe o no- 
me de margem americana. 

O terceiro tipo de processador ajus- 
ta a margem esquerda na tela, de modo 
a proporcionar um alinhamento. Como 
já mencionamos, alguns sistemas che- 
gam a hifenar automaticamente as pa- 
lavras que se dividem ao final da linha, 
o que melhora consideravelmente a apa- 
rência do texto. Esse processador é de- 
nominado WYSWYG (do inglês What 
You See What You Get). Com ele, o 
usuário tem oportunidade de acompa- 
nhar na tela — à medida que vai escre- 
vendo — a produção do texto final. 
O tamanho do texto, evidentemente, 
não é limitado ao tamanho da tela. A 
maioria dos processadores de texto per- 
mite ““rolar”' um texto para cima ou pa- 
ra baixo, ou, ainda, para a esquerda ou 
para a direita, de modo que a tela fun- 
cione como uma ““janela”' que mostra 
parte do texto. Nos micros pessoais, a 
janela tem, em geral, vinte linhas por 
quarenta colunas. 


REALCE O SEU TEXTO 





Os processadores de texto oferecem 
diversas opções de realce de seções do 


texto, como negrito, texto inverso (ca- 


racteres brancos sobre fundo ne- 
gro, na impressão), letras de ta- 
manhos ou formatos diferentes 
(itálico, dupla largura etc.). Es- 
ses realces podem aparecer na te- 
la e na impressora, ou apenas na 
impressora. Nesse caso, caracte- 
res especiais de demarcação as- 
sinalam, na tela, o lugar onde se 
inícia e termina uma função de 
realce, 


COMANDOS DE CONTROLE 


Os programas mais simples de 
processamento são os editores de 
texto, com as funções básicas de in- 













serção e modificação. Um editor se 
transforma em um processador de pa- 
lavras com o acréscimo de diversas ou- 
tras funções, que podem ser utilizadas 
pelo usuário no momento em que neces- 
sitar. A maneira de ativar essas funções 
varia de programa para programa, € é 
um elemento importante na ergonomia 
| | (facilidade de uso) do processador. 

od e DR a x As diretivas de controle dos recursos 
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do programa são entradas pelo teclado, 
num processo tão fácil quanto o da en- 
trada de texto. Os comandos funcionais 
consistem normalmente de teclas espe- 
ciais, ou sequências de teclas. Entre as 
mais comuns, incluem-se as de retroces- 
so, as de controle dos cursores, <EN- 
TER > etc. Bons comandos de edição 
são essenciais para facilitar o uso 
do programa. Em alguns casos, 
as sequências de comando são 
muito complicadas e dificeis 
de memorizar — o que 
torna o programa pou- 
co conveniente para o 
usuário ocasional. 
Além desses, O 
programa possui 
comandos de 
controle de for- 
matação cujo 
efeito só se ob- 
serva, em geral, 
no momento da 
impressão. Nos 
programas 
WYSWYG, eles 
são “embutidos” 

no texto, sob a 

forma de caracteres 

Invisíveis de contro- 
le. O vídeo responde 
a esses comandos 
de maneira bem se- 

melhánte ao que uma 
impressora responderia; 
isso possibilita que o usuá- 
rio tenha uma visão prévia 
de como o documento ficará 
quando pronto. 

Nos demais programas, os co- 
mandos de formatação são co- 
locados explicitamente no texto, 
precedidos por sinais especiais. 
Por exemplo, um comando como: 
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introduzido no meio de um texto, indi- 
caria ao processador que, naquele local, 
a margem esquerda deve ser modifica- 
da para vinte colunas. 


é CARTAS MULTIPLAS 


Outro recurso de programas 
mais sofisticados de processa- 
mento de texto é a mala direta 
— a impressão de cartas múlti- 
plas, endereçadas de forma per- 
| sonalizada a várias pessoas (ve- 
| ja o artigo da página 17). 

Uma das maneiras mais simples de 
fazer Isso consiste em escrever uma car- 
| ta padronizada, com o auxílio do pro- 











cessador de texto, e depois armazená-la 
em fita ou disco. 

Para enviar essa carta a diferentes 
destinatários, bastará carregar o texto 
da mesma na memória e, utilizando as 
funções de edição, inserir nome, ende- 
reço e outros dados nos pontos apro- 
priados, imprimindo-a a seguir. 

Uma alternativa mais elaborada é o 
uso de um outro arquivo de textos — de- 
nominado máscara — contendo, por 
exemplo, o nome e o endereço de todas 
as pessoas para as quais se quer man- 
dar uma carta, No texto da carta, por 
sua vez, introduzem-se caracteres espe- 
ciais, que assinalam onde devem entrar 
os dados da máscara. Ao se fazer a im- 
pressão, o programa produzirá uma car- 
ta para cada destinatário, automatica- 
mente, colocando os dados nos pontos 
certos do texto. 

Um sistema de produção de cartas 
múltiplas tem variadas aplicações tanto 
domésticas (o envio de cartões de Natal 
personalizados, por exemplo), quanto 
profissionais (propaganda de um produ- 
to ou serviço, cartas circulares, corres- 
pondências para orçamentos e assim por 
diante). 


ESCOLHA DO HARDWARE 





Teoricamente, qualquer microcom- 
putador pode ser usado para processa- 
mento de texto, desde que haja um pro- 
grama adequado para ele (na série de ar- 
tigos iniciada na página 576, apresenta- 
mos um programa completo de proces- 
samento de texto para a maioria das li- 
nhas cobertas por INPUT). É óbvio, po- 
rém, que não tem sentido fazer proces- 
samento de texto se não se conta com 
uma impressora. Além disso, convém 
lembrar que, na prática, existem algu- 
mas limitações impostas pelo hardware. 

Para começar, há a questão do tecla- 
do. A maioria dos micros compatíveis 
com o ZX-81, por exemplo, possui um 
teclado inadequado para datilografia rá- 
pida de textos, não dispondo de letras 
minúsculas, nem de sinais de acentua- 
ção. Portanto, ao processar textos com 
essas máquinas, não se pode esperar um 
resultado de bom nível. 

A linha Spectrum original (TK-90X, 
no Brasil) também tem um teclado so- 
frível, embora ofereça a alternativa de 
usar letras minúsculas e algum tipo de 
acentuação. O modelo TK-95 e os tecla- 
dos semiprofissionais acessórios, que 
podem ser comprados para o Spectrum, 
melhoram bastante a situação. 

Os computadores que possuem tecla- 
do semelhante ao de uma máquina de 
escrever — como o Apple, o TK-2000, 








o TRS-80, o TRS-Color Il e o MSX — 
são mais adequados quanto a esse aspec- 
to. Há, porém, uma grande variação de 
qualidade entre os diferentes modelos. 
Deve-se levar em conta, por exemplo, 
que só os micros da linha MSX incluem 
a acentuação original da língua portu- 
guesa, por terem adotado o padrão 
BRASCII (ASCII brasileiro). 

Outro elemento importante na esco- 
lha do hardware para processamento de 
texto é o vídeo. Nos computadores do- 
mésticos mais comuns, este em geral se 
limita a 32 ou 40 colunas (excepcional- 
mente 64, como nos micros TRS-80). 
Esse formato possibilita, entre outras 
coisas, o uso de televisores como saida 
de vídeo. Mas é restritivo para um tra- 
balho mais intenso com processadores 
de texto, principalmente os do tipo 
WYSWYG, que imprimem uma folha 
de sessenta a setenta toques. 

Em alguns micros, como o MSX e o 
Apple, é possível ampliar o formato de 
vídeo com software ou hardware de ex- 
pansão. Nesse caso, porém, não se re- 
comenda utilizar aparelhos de TV, pois 
a imagem perde a nitidez. Para quem 
pretende trabalhar por muito tempo 
com um processador, a nitidez de texto 
e a estabilidade no vídeo são fundamen- 
tais — e essas qualidades só são obtidas 
com monitores profissionais (veja o ar- 
tigo da página 851). 






MEMÓRIA 


O tamanho da memória disponível 
também deve ser considerado na seleção 
de um bom hardware para processamen- 
to de texto. A memória RAM não che- 
ga a ser um impedimento, dependendo 
do software escolhido. Alguns proces- 
sadores só operam com o texto inteira- 
mente contido na memória. Se ele for 
demasiado grande, é preciso dividi-lo 
em seções menores, que são gravadas em 
fita ou vídeo, o que costuma ser bastan- 
te cansativo. Uma maior capacidade da 
RAM ajuda muito, portanto. 

Os processadores mais avançados tra- 
balham à base de paginação, ou memoó- 
ria virtual — isto é, gravam e lêem es- 
sas seções do texto em disço, periodica- 
mente. São, contudo, bem mais exigen- 
tes em termos de hardware. 

A memória auxiliar é outro item im- 
portante. Para quem utiliza pouco o 
processador e lida apenas com textos pe- 
quenos (cartas, digamos), um gravador 
cassete é perfeitamente aceitável para ar- 
mazenamento de textos. Para uso mais 
intenso, entretanto, é praticamente in- 
dispensável o acionador de disquetes. 
Além de maior capacidade e velocida- 


de, ele assegura uma taxa de erros baixa. 
O emprego de memória virtual e en- 
cadeamento de arquivos (seções separa- 
das de um texto, que podem ser reuni- 
das em qualquer ordem) é necessário 
quando o texto é limitado apenas pela 
capacidade da memória auxiliar. Po- 
rém, quando os textos são muito gran- 
des, essa solução dificulta o trabalho e 
impede a utilização de funções globais 
de edição (busca, substituição etc.) 





A IMPRESSORA 


Em artigos anteriores (páginas 521 e 
648), examinamos os diversos tipos de 
impressora, suas características e as van- 
tagens que cada modelo oferece em re- 
lação ao processamento de texto. Por is- 
So, retomaremos aqui apenas os aspec- 
tos mais importantes. 

A impressora desempenha um papel 
fundamental na qualidade do texto im- 
presso (o produto final). Para trabalhos 
que não requerem uma apresentação 
perfeita, ou para a obtenção de cópias 
de “rascunho”, uma impressora matri- 
cial é perfeitamente adequada. Algumas 
delas podem produzir impressões em 
qualidade carta (dupla densidade de im- 
pressão), com uma aparência bastante 
semelhante à de um texto datilografa- 
do, Se queremos conseguir o máximo de 
qualidade, porém, devemos usar uma 
impressora do tipo margarida. 

Seja qual for o seu objetivo, não se 
esqueça de verificar se a impressora é 
compatível com o software de proces- 
samento, sobretudo quanto à capacida- 
de para realce de texto, mudança de fon- 
tes, acentuação etc. 





QUEM PRECISA DE UM PROCESSADOR? 


O processamento de textos por com- 
putador oferece enormes vantagens pa- 
ra escritores, jornalistas, professores, 
cientistas ou quaisquer outros profíssio- 
nais cujas funções incluam a elaboração 
de documentos, relatórios e cartas. Se 
você está em uma dessas categorias e 
ainda não tem um processador, franca- 
mente, não sabemos como pôde passar 
sem ele, até agora! 

Se você é estudante, provavelmente 
seu grau de utilização não é tão inten- 
so, mas o computador ajuda muito na 
execução de trabalhos escolares. 

De qualquer modo, mesmo que você 
não se enquadre em nenhum dos casos 
mencionados, um computador é bem 
vantajoso em relação a uma máquina de 
escrever, embora o preço não seja mui- 
to diferente (se a máquina for elétrica). 






Este é o segundo € último artigo sobre 
o projeto arquitetônico computadoriza- 
do. Aqui estão os complementos das lis- 
tagens para cada um dos micros, acres- 
cidas de instruções detalhadas referen- 
tes às três primeiras opções do menu. As 
outras quatro serão idênticas para as três 
versões. 


As opções são as seguintes: 
- opção 1, desenha o ambiente; 
opção 2, posiciona a mobília; 
- opção 3, cria mobília própria; 
- Opção 4, grava o projeto; 
opção 5, carrega; 
opção 6, imprime; 
opção 7, sai do programa, 

A primeira informação que devemos 
fornecer ao programa é a maior medi- 
da (em metros) do ambiente considera- 
do. Digite os dados e tecle < ENTER>. 
Depois disso, aparecerá um segundo me- 
nu contendo as seguintes opções: 
< ESPAÇO> desenha uma linha; 
<J> desenha uma janela; 
<P> desenha uma porta; 
<B> movimenta sem desenhar; 
<S> volta ao menu principal. 

Ao selecionarmos qualquer opção, à 
exceção da <S>, seremos perguntados 
sobre a direção e o comprimento da re- 
ta a ser feita. As questões serão repeti- 
das, de forma a permitir que tracemos 
linhas na diagonal, por exemplo, dizen- 
do o quanto para cima ou para a direi- 
ta queremos a reta. Se desejarmos traçá- 
la simplesmente na horizontal ou na ver- 
tical, bastará que forneçamos valores 
nulos. Repetiremos o processo até con- 
cluir o desenho do ambiente e, em se- 
guida, teclaremos <S> para retornar 
ao menu principal. Com um pouco de 
prática, desenvolveremos nossos proje- 
tos em questão de minutos. 

Na opção 2, usaremos as teclas 6 e 
7 para selecionar o móvel a ser posicio- 
nado. Teclando <S>, a peça aparece- 
rá no centro da tela. Poderemos movi- 
mentá-la para cima, para baixo, para a 
direita e para a esquerda acionando as 
teclas 5, 6, 7e 8. Para girar o móvel no 
sentido horário, pressionaremos a tecla 
H: no sentido inverso, A. 

Na criação da mobília, na opção 3, 
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utilizaremos o mesmo processo da op- 
ção 1 (desenho do ambiente), com a di- 
ferença de que agora o objeto não apa- 
recerá na tela até que sejam fornecidas 
todas as suas dimensões. Indagados so- 
bre o número de lados da peça (1 a 15) 
e sobre seu código, daremos um nome 
de dois dígitos à mobília, de modo a po- 
dermos identificá-la mais tarde. 

A opção 4 grava tanto a tela como 
os dados correspondentes às peças da 
mobília. Usaremos depois a opção 5 pa- 
ra carregar na memória um projeto gra- 
vado anteriormente. A opção 6 — de 
impressão — funcionará somente com 
a impressora conectada. 


7010 INPUT "DIGITE DIRECAO J[(C, 
B,E,D) ?7:D3 

7020 INPUT "DIGITE DISTANCIA 7” 
:'D: RETURN 


7040 LET Z=CODE INKEYS: FOR K=1 
TO LEN KS: IF CODE (KS(K))=Z T 
HEN LET K=LEN K5S: GOTO 7060 
7050 NEXT K: GOTO 7040 

7060 NEXT K: RETURN 

8000 DIM S(10): LET NF=0: LET F 
$="000": LET MAX=5: LET R=0: LE 

T SC=175/MAX: GOSUB 6060 

8010 DIM 010,30): DIM 05(10,2) 

8020 FOR N=1 TO 5: FOR K=1l TO 8 


- READ O(N,K): NEXT K: NEXT N 
B030 FOR N=1 TO 10: READ OS(N): 
NEXT N 

8032 FOR N=USR "A" TO USB "A"+/ 
- READ A: POKE N,AÃ: NEXT N 

8035 FOR N=1 TO 10: READ SN): 
NEXT N 

8040 RETURN 

8090 DATA .5,0,0,-.5,-.5,0,0,.5 
8100 DATA .75,0,0,-.5,-.75,0,0, 
=” 

8110 DATA .5,0,0,-.75,-.5,0,0.,. 
75 

120 DATA .5,0,0,=.5,7.5,0,0,.5 
81390 DATA .5,0,0,-.5,7-.5,0,0,.5 
8150 DATA "AR”,"FO”,"LL”,"PI*,” 


GE” RAP CER HA E RARO ES 
8160 DATA 16,32,64,255,64,32,16 


O 
8170 DATA 4,4,4,4,4,0,0,0,0,0 


| 
Ao rodarmos o programa, veremos 
um menu com as seguintes opções: 
- opção 1, desenha o ambiente, 
- opção 2, posiciona a mobília; 
- Opção 3, cria novas peças; 
- opção 4, grava o projeto, 


Desenhe os móveis que irão compor 0 
ambiente a ser planejado. Depois que 
todas as peças se encaixarem em seus 
respectivos lugares, restará salvar 

o projeto em fita ou disco. 
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COMPLETE O DESENHO CARREGUE 
DO AMBIENTE IMPRIMA 
CRIE NOVAS PEÇAS PARA | GIRE SEUS MÓVEIS 
SUA MOBÍLIA APAGUE E REDESENHE 
GRAVE O PROJETO PROGRAMA TERMINADO 








- Opção 5, carrega; 
- Opção 6, Imprime; 
- Opção 7, sai do programa. 

Se escolhermos a opção 1, seremos 
perguntados sobre a maior medida do 
ambiente. Com essa informação, o mi- 


cro colocará o desenho em escala, de 


modo que ele caiba na tela. 
Tecle à barra,de espaço para iniciar 
o desenho do ambiente. Há outras op- 
ções dentro da opção 1, a saber: 
< ESPAÇO> para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0O> para desenhar portas; 
<C> para limpar a tela; 
<F> para voltar ao menu inicial. 
Ao escolher uma das opções (à exce- 
ção da <C> eda <F>),o usuário se- 
rá indagado sobre a direção e o compri- 
mento da reta desejada. Essas pergun- 
tas serão feitas várias vezes, a fim de 
oferecer dados ao computador. 
Suponhamos que queremos traçar 
uma reta inclinada, por exemplo. Basi- 
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camente, teremos que fornecer ao mi- 
cro duas informações, ou seja, o quan- 
to ela deverá se deslocar para cima ou 
para baixo e o quanto deverá ir para a 
direita ou a esquerda. A repetição das 
questões nos permite, portanto, montar 
coordenadas bidirecionais para a nossa 
reta e traçá-la na diagonal. 

Para obter retas horizontais ou ver- 
ticais (unidirecionais), bastará teclar 
< ENTER>, quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opção 2 mantém na tela o desenho 
do ambiente executado na primeira op- 
ção e acrescenta um cursor em forma de 
cruz que será movimentado ponto a 
ponto através das teclas das setas. Para 
movê-lo mais rapidamente, tecle 
< SHIFT > + seta, até alcançar a posi- 
ção desejada — aquela em que o móvel 
será colocado. Em seguida, acione a te- 
cla P. Feito isso, escolha a peça a ser po- 
sicionada. As peças são numeradas de 
O a 9; caberá ao usuário criar as cinco 





últimas, já que as iniciais são automati- 
camente definidas (mas podem ser alte- 
radas) no programa: O-pia, l1-fogão, 
2-mesa, 3-peladeira e 4-armário. Para 
apagar um móvel, posicione o cursor no 
vértice que o gerou, tecle D e selecione 
o número desse móvel. Deveremos nos 
certificar de que o cursor esteja exata- 
mente no vértice que o gerou; caso con- 
trário, a peça não será totalmente eli- 
minada. 

Se quisermos girar um móvel para 
adequá-lo a um canto qualquer do am- 
biente, basta acionar a tecla R seguido 
do ângulo de giro do móvel — expresso 
em graus. Todos os objetos serão dese- 
nhados com essa angulação até que se 
tecle novamente R; só que desta vez se- 
guido de 0. A opção < F > possibilita 
retornar ao meu principal. 

A opção 3 permite definir novas pe- 
ças ou modificar as cinco já existentes. 
As medidas, fornecidas em centimetros, 
não deverão ultrapassar os 200 cm. O 
primeiro passo consiste em escolher um 











número de O a 9 para armazenagem da 
peça que, em seguida, será desenhada 
pelo mesmo processo utilizado na opção 
| (desenho do ambiente). Tecle <C> 
para recomeçar o desenho e <F> para 
retornar ao menu inicial. 

A opção 4 armazena nosso projeto 
(que deve receber um nome aqui) em fi- 
ta ou disco. A opção 5 carrega na me- 
mória do micro um projeto previamen- 
te gravado em fita ou disco. 

A opção de impressão está incomple- 
ta, pois necessita de uma rotina que des- 
peje o conteúdo da tela na impressora. 
Retomaremos este assunto em um pró- 
ximo artigo, que nos habilitará a elabo- 
rar tal rotina. 


1210 OX=K:0Y=Y 
1220 IF IS=CHRS(B) 
K=X-1 

1230 IF IS=CHRS (9) 
EN X=X+1 

1240 IF IS=CHRS(94) AND Y>0 THE 
N Y=T-1 


AND X>0 THEN 


AND X<1B5 TH 


1250 IF I$=CHRS(10) AND Y<1B5 T, 


HEN Y=Y+1 

1260 IF IS=CHRS (21) AND X>7 THE 
N X=X-B 

1270 IF IS=CHR$(93) AND X<177 T 
HEN X=X+B 

+280 IF I$=CHR$S(95) AND Y>7 THE 
N Y=Y-B 

1290 IF IS=CHRS(91) AND Y<177 T 
HEN Y=T+B 

1300 PUT(OX-3,07-3)-(0X+3,0Y+3) 
13, PSET 

1310 IF I$="P”* THEN 1360 

1320 IF I$="D” THEN 1430 

1330 IF 1I5="R” THEN 1500 

1340 IF I15$="F” THEN FOR K=1 TO 
4: PCOPY K TO K+4:NEXT:GOTO 90 
1350 GOTO 1160 

1360 SOUND 190,1 
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Com o auxílio do computador, pode-se projetar o arranjo 
de uma cozinha, como mostra a tela à esquerda, 

em alguns minutos. O menu do programa, 
exibido na tela abaixo, 

oferece ao usuário 

sete opções. 


1370 COLOR 0:GOSUB 340 
1380 IS=INKEYS:IF 1I8<"0" OR IS> 
“9” THEN 1380 

1390 COLOR 1:GOSUB 340 

1400 N=VAL (IS) 

1410 COLOR 0,1:A$=0S(N) :GOSUB 1 
540 

1420 GOTO 1160 

1430 SOUND 200,1 

1440 COLOR 0O:GOSUB 340 
1450 IS=INKEYS:IF I8<"0” 
"9" THEN 1450 

1460 COLOR 1:GOSUB 340 
1470 N=VAL (IS) 

1480 COLOR 1,1:AS=0S(N):GOSUB 1 
540 

1490 GOTO 1160 

1500 CLS: PRINT"ANGULO DE ROTACA 
O (0-360)": INPUT RT 

1510 IF RT<O OR RT>360 THEN 150 
Õ 

1520 RT=(RT/180)*3.14] 

1530 SCREEN 1,0:GOTO 1160 

1540 IF A$="" THEN RETURN 

1550 P=1:Xl=X:Y1l=Y 

1560 BS=MIDS(AS,P,1) 

1570 DS$=MIDS (AS, P+1,1) 

1580 D=VAL (MIDS (AS, P+2, INSTR(P, 
AS,";")-(P+2))) 

1590 P=INSTR(P,AS,";")+1 

1600 D=D/100:D2=FNA(D) :0X=X:0Y= 


OR I$> 


Y 

1610 IF D$="D* THEN XA=D2*COS(R 
T) :YA=-D2*SIN(RT) 

1620 IF D$="E” THEN XA=-D2*COS( 
RT) : YA=DZ*SIN(RT) 

1630 IF D$="B” THEN XA=D2*SIN(A 
T) : YA=D2*COS (AT) 

1640 IF D$="C” THEN XA=-D2*SIN( 
RT) : YA=-D2*COS (RT) 

1650 XA=INT(XA+.5) :YA=INT(YA+.S 
) a 

1660 X=H+XA:Y=Y+YA 

1670 IF B$="D”" THEN LINE (OX,0Y) 
-(X, 7), PSET 


1680 IF P<LEN(AS) THEN 1560 





1690 X=X1:Y=Y1:RETURN 

1700 CLS:LINE INPUT"NOME DO ARQ 
UIVO:";FS 

1710 SG=PEEK (188) *256 

1720 CLS: PRINT"SALVANDO:":FS 
1730 CSAVEM F5,5G,5G+6143,35252 
17/40 GOTO 90 

17/50 CLS:LINE INPUT "NOME DO AR 
QUIVO:":FS 

1760 PRINT"ACIONE O GRAVADOR E 
ESPERE” 

1770 CLOADM FS 


17/80 GOTO 90 
1790 REM AHXAXkkkkkkaxRaxd kkk kd 


1/91 REM * x 
1792 REM * ROTINA PARA x 
1793 REM * DESPEJAR A TELA x 
1794 REM * NA IMPRESSORA " 
1795 REM * x 


1796 REM fr RA MMA e e 
1797 GOTO 90 


Ao rodarmos o programa, veremos 
na tela um menu com sete opções: 

- opção 1, desenha o ambiente; 
opção 2, posiciona a mobília; 
opção 3, cria novas peças; 
opção 4, grava o projeto; 

- Opção 5, carrega; 

- Opção 6, Imprime; 

- Opção 7, sai do programa. 

Devemos primeiro escolher entre as 
opções 1, 3 ou 5. Ao decidirmos pela 1, 
seremos perguntados sobre a maior me- 
dida (em metros) do ambiente, informa- 
ção que permitirá ao micro colocar o de- 
senho em uma escala que o faça caber 
na tela. Tecle a barra de espaço para ini- 
ciar o desenho do ambiente. 





DRE ES E cria ES SE ET 


Há outras opções dentro da opção 1: 
< ESPAÇO> para desenhar; 
<B> para mover sem desenhar; 
<W> para desenhar janelas; 
<0O> para desenhar portas; 
<C> para limpar a tela; 
<F> para voltar ao menu inicial. 

Ao escolher uma das opções (à exce- 
çãoda <C> eda <F>), o usuário se- 
rá perguntado sobre a direção e o com- 
primento da reta desejada. Essas per- 
guntas serão feitas várias vezes a fim de 
oferecer dados ao computador. 

Suponhamos que queremos traçar 
uma reta inclinada, por exemplo. Basi- 
camente, teremos que fornecer ao mi- 
cro duas informações, ou seja, o quan- 
to ela deverá se deslocar para cima ou 
para baixo e o quanto deverá ir para a 
direita ou a esquerda. A repetição das 
questões permite, portanto, montar 
coordenadas bidirecionais para nossa re- 
ta e traçá-la na diagonal, 

Para desenhar retas horizontais ou 
verticais (unidirecionais), basta teclar 
< ENTER> quando a pergunta for re- 
petida. Tecle <C> para apagar a tela 
e <F> para voltar ao menu principal. 

A opção 2 só poderá ser iniciada de- 
pois da opção 1. Ela mantém na tela o 
desenho do ambiente executado na pri- 
meira opção e acrescenta um cursor em 
forma de seta que será movimentado 
ponto a ponto através das teclas das se- 
tas. Para movê-lo mais rapidamente, 
usamos as teclas I-cima, M-baixo, K- 
direita e J-esquerda, até que o cursor al- 
cance a posição desejada — aquela em 
que a peça será colocada. Então acio- 
namos a tecla P. Feito isso, determina- 
mos a peça a ser posicionada. As peças 
são numeradas de O a 9; caberá ao usuá- 
rio criar as cinco últimas peças, Já que 
as iniciais são automaticamente defini- 
das (mas podem ser alteradas) no pro- 
grama: 0-pia, 1-fogão, 2-mesa, 3-gela- 
deira e 4-armário. Para apagar um mó- 
vel, posicione o cursor no vértice que o 
gerou, tecle D e selecione o número cor- 
respondente a esse móvel. Deveremos 
nos certificar de que o cursor esteja exa- 
tamente no vértice que o gerou; caso 
contrário, a peça não será totalmente 
eliminada. 

Se quisermos girar um móvel para 
fazê-lo caber em algum canto do am- 
biente, basta acionar R seguido do ângu- 
lo de giro do móvel, expresso em graus. 
Todos os objetos serão desenhados com 
essa angulação, até que se tecle nova- 
mente R, seguido de O. A opção <F> 
permite retornar ao menu principal. 

A opção 3 possibilita definir novas 
peças ou modificar as cinco já existen- 
tes. As medidas, fornecidas em centíme- 
tros, não deverão ultrapassar os 200 cm. 





O primeiro passo consiste em escolher 
um número de O a 9 para armazenagem 
da peça que, em seguida, será desenha- 
da pelo mesmo processo utilizado na op- 
ção 1 (desenho do ambiente). Tecle 
<C> para recomeçar o desenho, e 
<F> para retornar ao menu inicial. 

A opção 4 armazena nosso projeto 
(que aqui deve receber um nome) em fi- 
ta. A opção 5 carrega na memória do 
micro um projeto gravado em fita. Es- 
tas duas opções podem ser alteradas pa- 
ra trabalhar com disco, bastando fazer 
as seguintes modificações: Troque o 
“CAS:” que vem logo após os coman- 
dos BSAVE e BLOAD por “A:” (linhas 
1720 e 1770), respectivamente. 

A opção de impressão está incomple- 
ta, pois necessita de uma rotina que des- 
peje o conteúdo da tela na impressora. 
Retomaremos esse assunto em um pró- 
ximo artigo, que nos habilitará a elabo- 
rar tal rotina. 


1210 0X=XK:0Y=Y 


1220 IF I$=CHR$S(29) AND X>0 THE 
N X=X-1 

1230 IF I$=CHRS$S (28) AND X<18STHE 
N X=X+1 

1240 IF I$=CHR$(30) AND Y>0 THE 
N Y=Y-1 

1250 IF IS=CHRS(31)AND Y<IBS5THE 
N T=Y+1 

1260 IF IS$=CHR$(74) AND X>7 THE 
N X=X-B 

1270 IF IS=CHAS(75)AND X<177/THE 
N X=X+8 

1280 IF I$=CHR$(73) AND Y>7 THE 
N Y=7-8 

1290 IF IS=CHRS(77)AND Y<1l//7THE 
N Y=Y+B 

1310 IF 1$="P” THEN CL=1:GOTO 1 
360 

1320 IF 1$="D" THEN CL=15:GOTOL 
430 

1330 IF I$="R” THEN A=USR(0) :GO 
TO 1500 

1340 IF 1$="F” THEN A=USR(0) :GO 
TO 90 

1350 GOTO 1160 

1360 BEEP 


1370 GOSUB 340 
1380 IS=INKEYS:IF IS<"0” OR 1532 


"9" THEN 1380 

1390 COLOR 0:GOSUB 340 

1400 COLOR 1:N=VAL (IS) 

1410 AS$=0S(N) :GOSUB 1540 

1420 GOTO 1160 

1430 BEEP 

1440 GOSUB 340 

1450 IS=INKEYS:IF 1IS<S"0” OR 132 
"9" THEN 1450 

1460 COLOR 0:GOSUB 340 

1470 N=VAL (IS) 

1480 AS=0S(N) :GOSUB 1540 

1490 GOTO 1160 

1500 SCREENO: PRINT"ANGULO DE RO 


TAÇÃO (0-360)";: INPUT RT 

1510 IF ART<O OR RT>360 THEN 150 
O 

1520 RT=(RT/180)*3.141:SCREEN 2 


1530 
160 
1540 IF A$="" THEN RETURN 

1550 P=1:Xl=X:Yl=Y 

1560 B$=MIDS (AS,P,1) 

1570 DS=MIDS (AS, P+1,1) 

1580 D=VAL (MIDS (AS, P+2, INSTR(P, 
AS,";")-(P+2))) 

1590 P=INSTR(P,AS,";")+1 

1600 D=D/100:D2=FNA(D) :0X=X:0Y= 
Y 

1610 IF D$="D" THEN XA=D2Z*COS (R 
T) : YA=-D2*SIN(RT) 

1620 IF D$="E” THEN XA=-D2*COS( 
RT) : YA=DZ*SIN (RT) 

1630 IF D$="B” THEN XA=D2*SIN(R 
T) : VA=D2*COS (RT) 

1640 IF D$="C” THEN XA=-D2*SIN( 
RT): YA=-D2*COS (RT) 

1650 XA=INT(XA+.5):YA=INT(YA+.5 


A=USR2 (0) :A=USRI (0) :GOTO 1 


) 

1660 X=K+KA: Y=Y+YA 

1670 IFBS="D" THENLINE(0X,0Y7)-( 

H.T),CL 

1675 COLOR 1 

1680 IF P<LEN(AS) THEN 1560 

1690 X=X1:Y=Y1:RETURN 

1700 LOCATE 5,18:LINE INPUT"NOM 

E DO PROJETO:";FS 

1710 LOCATE 5,20:PRINT"GRAVANDO 
"+ES+".. 

1720 BSAVE "CAS:"+FS,&HD100,4HE 

900 
1730 
1750 


GoTo 90 

LOCATE 5,20:LINE INPUTTNOM 
E DO PROJETO:";FS 

1760 LOCATE > 22: PRINT*CARREGAN 
DO "+FS+". 

1770 BLOAD "CAS: "+FS 

1780 Fl=1:GOTO 90 

1790 REM MM MM MAO 
1791 REM 
1792 REM * 
1793 REM * 
1794 REM * 
1795 REM * 
1796 BEM SMA SOR O 
1797 GOTO 90 

2000 CLEAR 200,5HA000 

2010 DEFUSR=1HA0OO 

2015 DEFUSR1I=AHA0OOD 

2020 DEFUSR2=LHADIA 

2025 DEFUSR3=LHA02Z6 

2030 DEFUSR4=1HA033 

2040 FOR R=0 TO 63:READ A 

2050 POKE (.HAODO+R) ,A:NEXT 

2060 DATA 4H21,00,00,84H11,00,8H 
D1,01,00,24,4HCD,4H59,00,8HC9 
2070 DATA 4H21,00,8HD1,8H11,00, 
00,01,00,24,4HCD,4H5C,00,2HC9 
2080 DATA 4H21,00,4H20,62,00,01 
,00,24,4HCD,4.H56,00,8HC9 

2090 DATA .4H21,00,00,8H11,&HFF, 
:HB8,01,00,24,&HCD,.H59,00,8HC9 
2100 DATA 4H21,8HFF,&HBB,EH11,0 
0,00,01,00,24,4HCD,5H5C,00,4HC9 
2110 POKE (AHAOIE), 31 

2120 SP$="":FORI=ITOB:READAS 
2130 SP$=SPS+CHRS (VAL ("LH +AS)) 
2140 NEXT:SPRITES (0)=S5PS 

2150 GOTO 20 

2160 DATA E0,C0,A0,90,08,00,00, 
00 


* 
+ 


rotina para 
despejar a tela 
na impressora 


+ + * *: 
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Traga seu desenho para a magia do 
mundo tridimensional. Isso é possível 
graças aos recursos de seu micro 
aliados aos princípios da perspectiva 
e das técnicas de sombreamento. 


A maioria das pessoas sabe da impor- 
tância do uso da perspectiva em qual- 
quer figura, e, por isso, costuma incluí- 
la até nos mais simples esboços. Sur- 
preendentemente, a idéia de perspecti- 
va não é tão clara como parece; assim, 
os artistas mais antigos não tinham a 
menor idéia sobre o que fazer para dar 
profundidade às suas telas. Apenas a 
partir do Renascimento, quando os pin- 
tores começaram a dar um tom realista 
às representações, é que os princípios de 





perspectiva foram formulados. Essas re- 
gras são as mesmas usadas pelos artis- 
tas contemporâneos e aplicadas aos de- 
senhos feitos no computador. 

Para o desenvolvimento dessa técni- 
ca, foram necessários vários séculos, O 
que não significa que suas noções bási- 
cas sejam de difícil compreensão. Na 
realidade, a idéia fundamental é a se- 
guinte: todas as linhas horizontais per- 
manecem nessa posição, enquanto as 
verticais se inclinam “para dentro” da 
figura, convergindo para o denomina- 
do ponto de fuga. (Esse assunto já foi 
abordado no artigo Programação de 
gráficos em 3-D, página 693.) 

Apenas as linhas paralelas, perpen- 
diculares à figura, se dirigem para o 
ponto de fuga principal. As demais 
afluem para seus próprios pontos de fu- 


ga, situados em uma mesma linha, no 
horizonte imaginário do desenho. 

Esses princípios, quando aplicados a 
figuras reais, podem se tornar um pou- 
co mais complicados; em desenhos sim- 
ples, entretanto, proporcionam a sensa- 
ção de profundidade exigida. O leitor já 
deve ter visto, na televisão ou no cine- 
ma, astronaves voando para o espaço a 
partir do imenso hangar da nave-mãe. 
Nesse caso, a sensação de profundida- 
de é dada pelo chão e pelo teto quadri- 
culados do hangar, que parecem se pro- 
jetar em direção ao espaço, 





FEIXES DE RETA EM PERSPECTIVA 


Os feixes de retas perpendiculares são 
muito usados para se obter a visão de 











ILUS 


um objeto em perspectiva. O primeiro 
programa, mostrado a seguir, desenha 
duas superfícies quadriculadas — o te- 
to e o chão do hangar — tendo o usuá- 
rio do micro como observador, olhan- 
do para O infinito. 


10 BORDER O: PAPER O: INK 7 
£0 CLS : INPUT "PROXIMIDADE D 
O CHAO “;V 


40 FOR K=-126 TO 127 STEP 6 
50 LET Y=174: LET X=K+V*K: IF 


ABS (X)>127+(X<1) THEN LET & 
=SGN (X)*127-(X<1): LET Y=100 
+(X-K)*74/(UAK) 

60 PLOT 127-K,100: DRAW 127-X 


-PEEK 23677,Y-PEEK 23678 
70 PLOT 127-K,74: DRAW 127-X- 
PEEK 23677,174-Y-PEEK 23678 
BO NEXT K 
90 LET E=V (1/6): LET T=E 
100 LET Y=Y*F: IF Y>77 THEN 
GOTO 140 
110 PLOT 0,97+Y7: DRAW 255,0 
120 PLOT 0,77-Y: DRAW 255,0 
130 GOTO 100 
140 IF INKEYS="" THEN GOTO 
140 
150 GOTO 20 


10 PMODE 4,1 

20 CLS: INPUT" PROXIMIDADE DO CHA 
O "su 

30 PCLS:SCREEN 1,1 

40 FOR K=-126 TO 127 STEP 6 

5O Y=191:X=K+V*K:; IF ARBS(X)>127- 
(X<1) THEN XK=SGN(X)*127+(X<1):Y 
=11]1+(X-K)*80/(V*K) 
60 LINE(127-K,111) 

ET 

70 LINE(127-K,80)-(127-X,191-Y) 
+, PSET 

B0 NEXT 

90 E=VT(1L/6):Y=F 

100 Y=Y*XF:IF Y>B3 THEN 140 

110 LINE(0,108+Y7)-(255,10B+Y),P 
SET 

120 LINE(0,84-Y)-(255,84-Y),PSE 
T 

130 GOTO 100 

140 IF INKEY5="" THEN 140 ELSE 

20 


[io 


(127-K,7),PS 


LO TEXT 

20 HOME INPUT "PROXIMIDADE D 
O CHAO ";UV 

30  HGR2 

40 FOR K = - 126 TO 127 STEP 
6 

SO Tu I91L:X = KA VA KR: IF 


BS (X) 2 127 - (X < 1) THEN X 
SGN (X) * 127 + (X < 1):Y = 


= | 





Um cenário quadriculado em perspectiva é um bom recurso 
para conferir profundidade a seu desenho. 


LL + (X-K) * 80 / (VU *K) 

60. HPLOT 127 = K,111 TO 127 - 
XY 

70 HPLOT 127 - K,80 TO 127 - X 


sA9) = T 

BO NEXT 

O Es Vo so T=F 

100 Y = Y* FF. IFYT> SI THBENIA 
ao 

110 HPLOT 0,108 + Y TO 255,108 
- cd 

120 HPLOT 0,84 - Y TO 255,84 - 


x 
130 GOTO 100 
140 GET AS: GOTO 10 


ny 


10 SCREEN 0 

20 CLS: INPUT" PROXIMIDADE DO CHA 
O TU 

30 SCREEN 2 

40 FOR K=-126 TO 127 STEP 6 

50 Y=19]):X=K+V*K: IF ABS(X)2127/- 
(X<1l) THEN X=SGN(X)*127+(X<1):Y 
=L11+(X-K) *80/(U*K) 

60 LINE(127-K,111)-(127-X,Y) 

70 LINE(127-K,8B0)-(127-X,191-Y) 
BO NEXT 

90 F=VC (1/6) :Y=F 

100 T=YTXF:IF Y7>83 THEN 140 

110 LINE(0,108+7)-(255,108+T) 
120 LINE(0,84-Y)-(255,84-Y) 

130 GOTO 100 

140 IF INKEY$S="" THEN 140 ELSE 


20 


Alterando o valor inicial, obtém-se 
efeitos diferentes, como a sensação de 
estar flutuando entre as duas superfícies. 
Atribuindo um valor baixo para V (2, 
por exemplo), as linhas inferiores se in- 
clinarão para os pontos de fuga situa- 
dos em um horizonte acima da metade 
do vídeo. Inversamente, as linhas supe- 
riores convergirão para um horizonte 


abaixo da metade do video. Se, por ou- 
tro lado, digitarmos o valor 10, o cená- 
rio apresentará modificações profundas, 
com o observador em uma posição bem 
mais próxima do chão. 

Inicialmente, o programa desenha as 
retas frontais voltadas para o horizon- 
te, entre as linhas 40 e 80, e as retas que 
vão de lado a lado da tela, entre as li- 
nhas 90 e 130. A variável K dá a coor- 
denada X do início de cada linha, que 
é, então, multiplicada por V para che- 
gar à coordenada X da sua extremida- 
de final. A condição IF...THEN, na h- 
nha 50, apenas evita que o desenho ul- 
trapasse os limites da tela. Em alguns 
computadores, isto é dispensável, ape- 
sar de acelerar a execução do programa. 

As linhas restantes serão traçadas pe- 
la próxima parte do programa. A dis- 
tância entre elas torna-se cada vez me- 
nor à medida que “'se afastam” da te- 
la, um efeito controlado por sucessivas 
multiplicações da coordenada Y por 
V11/6. O valor 1/6 foi escolhido para 
dar um resultado mais realista; isto, po- 
rém, não impede que o usuário experi- 
mente outros valores. 





A DIMINUIÇÃO DE TAMANHO 


Os princípios da perspectiva aplicam- 
se aos objetos bem como aos feixes de 
retas. Vistos a distância, todos os ele- 
mentos de um desenho parecem meno- 
res e mais próximos uns dos outros. Is- 
so se verifica, por exemplo, quando ob- 
servamos os topos e as bases de uma sé- 
rie de árvores iguais enfileiradas colo- 
cadas sobre duas retas que convergem 
para um mesmo ponto de fuga. 

Obtém-se esse efeito porque o cére- 
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A medida que nos afastamos dos objetos, eles parecem menores 
e mais próximos entre si, como mostra a figura acima. 


bro humano relaciona o tamanho de um 
objeto conhecido com a distância em 
que ele se encontra. Ao vermos dois ob- 
tetos idênticos na forma, mas um com 
a metade do tamanho do outro, dedu- 
ziremos que o menor está duas vezes 
mais longe que o primeiro. Portanto, ao 
desenharmos alguns objetos em tama- 
nho decrescente no vídeo de um micro, 
teremos a impressão de que eles estarão 
“entrando na tela” 

Analisando a distância entre os ob- 
jetos de uma figura, concluiremos que 
ela se comporta do mesmo modo. Os 
objetos parecem mais próximos entre si 
à medida que se afastam do observador. 

Existe uma relação matemática entre 
a distância e o tamanho, isto é, o tama- 
nho apresenta uma variação inversa- 
mente proporcional à distância. Assim, 
se aumentarmos a distância entre o obje- 
to e o observador, o tamanho do objeto 
diminuirá. E por essa razão que no pri- 
meiro programa a separação entre as li- 
nhas horizontais está elevada a 1/6. O 
número 6 foi escolhido apenas para se 
garantir um espaçamento mais condi- 
zente com a realidade; se o substituir- 
mos por qualquer outro, veremos que o 
desenho não perderá sua profundidade. 

O próximo programa mostra como 
desenhar uma vista em perspectiva de 
uma estrada delimitada por postes: 


10 BORDER O: PAPER O: INK 7: 
CLS 
15 DEF EN Y(X)=((174-VP)/100) 


*(X-128) +VP 
16 DEF FN B(X)=((20-VP)/100)* 
(X-128) +VP 

17 DEF FN S(T)=SF/SQR ((RW/2) 








“2+(T*APH) " 2) 
20 PRINT **" 


30 INPUT "DISTANCIA ENTRE POS 
TES ":P 

40 INPUT "LARGURA DA ESTRADA 
"RW 

50 INPUT "ALTURA DOS POSTES " 
: PH 

60 INPUT "ALTURA DO OBSERVADO 
R ":;RH 

f0 CLS 

BO LET SF=1: LET SF=160/FN S( 
0) 


90 LET VP=160/PH*RH+100: LET 
X=228: FOR T=1l TO 15 

100 LET X=X-1: IF FN S(T)<FN Y 
(X)-FN B(X) THEN GOTO 100 

110 PLOT X,FN B(X): DRAW X- 
PEEK 23677,FN Y(X)-PEEK 23678: 
LET XJ=(FN T(X)-FEN B(X))/10: 
LET YJ=FN Y(X)-XJ 

120 PLOT X-XJ,FN Y(X): DRAW X- 
RJ-PEEK 293677,YJ-PEEK 23678: 
DRAW X+XJ-PEEK 23677,YJ-PEEK 
23678: DRAW X+XJ-PEEK 23677,EFN 
TIX)-PEEKR 23678 

130 PLOT 255-X,FN B(X): DRAW 
255-K-PEEK 23677,FN Y(X)-PEEK 
23678 

140 PLOT 255-X-XJ, EN Y(X): 
DRAW 255-X-XJ-PEEK 23677,YJ- 
PEEK 23678: DHAW 255-X+XJ-PEEK 
23677, YJ-PEEK 23678: DRAW 255- 
A+XJ-PEEK 236/77,FN Y(X)-PEEK 
23678 

150 NEXT T 

160 GOTO 160 


10 PMODE 4,1:PCLS:CLS 

20 DEFENYT(X)=( (900-VP)/500)* (X 
-640)+VP:DEFENYB(X)=((100-VP)/5 
00)*(X-640) +VP:DEFFNS(T)=SF/SOR 
( (BW/2)12+(T*PH) 12) 

30 INPUT"DISTANCIA ENTRE OS POS 
TES";P 





b B | 
a TOM TOM MM 





Sdo necessários princípios e técnicas especiais para 
se obter um bom sombreamento em esferas. 


40 INPUT"LARGURA DA ESTRADA” ; BW 
320 INPUT"ALTURA DOS POSTES” ;PH 
60 INPUT"ALTURA DO OBSERVADOR” ; 


fU SCREEN 1,1 

80 SF=1:SF=800/FNS(0D) 

90 VP=800/PH*RH+100:X=1140:FOR 
T=1 TO 15 

100 X=K-4.1F FNS(T)<ENYT(X)-ENY 
B(X) THEN 100 

110 LINE(X/5, 191-ENYB(X)/5)-(X/ 
9, 191-ENYT(X)/5), PSET:XJ= (ENYT( 
H)-ENTB(X))/10:YI=ENYT(X)-KJ 
120 LINE((X-XJ)/5,191-FNYT(X)/5 
)-=((H-4J)/5,191-YJ/5), PSET;LINE 
-((X+XJ) /5, 191-YJ/5), PSET:LINE- 
((X+HJ) /5, 191-ENYT(X)/5), PSET 
130 LINE(255-X/5,191-FNYB(X)/5) 
=(255-X/5,191-FNYT(X)/5), PSET 
140 LINE(255-(X+XJ)/5,191-FNYT( 
X)/5)-(255- (4+%9)/5,191-79/5),P 
SET:LINE —-(255-(X-XJ)/5,191-YJ/ 
3), PSET:LINE-(255-(X-X])/5,191- 
YJ/5) ,. PSET:LINE-(255-(X-X]J)/5,1] 


91-FNYT(X)/5), PSET 

150 NEXT 

160 IF INKEYS="" THEN 160 ELSE 

RUN 

(e) 

LO TEXT : HOME 

20 DEF EN YT(X) = ((900 - VP) 
! 500) * (X - 640) + VP: DEF 

EN YB(X) = ((100 - VP) / 500) * 
(XxX - 640) + VP: DEF FNS(T) = 
SF / SOR ((BN / 2) “2 + (Tm 
PH) ” 2) 

30 INPUT "DISTANCIA ENTRE OS P 

OSTES ":P 

40 INPUT "LARGURA DA ESTRADA " 
- RW 

390 INPUT "ALTURA DOS POSTES ": 

PH 

60 INPUT "ALTURA DO OBSERVADOR 
":BH 


0 HCOLOR= 3: HGR2 








BO SF = 1L:SF = 800 7 FN S(0) 
90 VP = 800 / PH * RH + 100:X = 
1140: FOR T = 1 TO 15 
100 X =X - 4: IF FNS(T) < F 
NYT(X) - FN YB(X) THEN 100 
110 HPLOT X / 5,191 - FN YB(X 
) ! 5 TO X/ 5,191 - FN YT(X) 
/ 5:XJ = ( EN YT(X) - FN YB(X) 
) / 10:YJ = EN YT(X) - XJ 
120 HPLOT (X - XJ) / 5,191 - 
FN YT(X) 727 5 TO (X - XJ) / 5,19 
L- YJ / 5: HPLOT TO (X + XJ) 
/ 5,191 - YJ 4 5: HPLOT To (X 
+ XJ) / 5,191 - EN YT(X) 7/5 
130 HPLOT 255 -=- X / 5,191 - FE 
NYB(X) / 5 TO 255 - x / 5,191 
= EN YT(X) / 5 
140 HPLOT 255 - (X + XJ) / 5;l 
91 - EN YT(X) 7 5 TO 255 = (X 
+ XJ) / 5,191 - YJ 7 5: HPLOT 
TO 255 = (X = XJ) / 5,191 - YJ 
/ 5: HPLOT TO 2558 - (X = XJ) / 
S.191 - EN YTIX) 7/5 
150 NEXT 
160 GET AS: RUN 


Lo 


10 SCREEN 0 

20 DEFENYT(X)=((900-VP)/500) *(X 
-640)+VP:DEFENYB (X)=((100-VP)/5 
00)*(X-640) +VP: DEFFNS (T) =SF/SQR 
( (RW/2)"2+(T*PH) "2) 

30 INPUTPDISTANCIA ENTRE OS POS 
Tão “ER 

40 INPUT"LARGURA DA ESTRADA ";R 
W 

50 INPUT"ALTURA DOS POSTES ";PH 
60 INPUT"ALTURA DO OBSERVADOR *” 
:RH 

70 SCREEN 2 

80 SF=1:S8F=800/FNS (0) 

90 VP=8B00/PH*AH+100:X=1140:FOR 

T=1 TO 15 

100 X=X-4:IF ENS(T)<FNYT(X)-ENT 
B(X) THEN 100 

110 LINE (X/5, 191-FENYB(X)/5)-(X 
5, 191-ENYTT(X)/5):XJ]J= (ENYT(X)-F 
NYB(X))/10:YJ=ENYTYT(X)-XJ 

120 LINE ((X-XJ)/5, 191-FNTT(X)/ 
5)-((X-X])/5,191-YJ/5) : LINE-((X 
+XJ)/5,191-YJ/5) :LINE-((X+HXJ)/5 
+191-FENTT(X)/5) 

130 LINE (255-X/5,191-ENYB(X)/5 
)J-(255-X/5, 191-ENYT(X)/5) 

140 LINE (255-(X+XJ) /5, 191-FNYT 
(X)/5)-(255- (X+XJ) /5,191-YJ/5): 
LINE-(255-(X-XJ)/5,191-YJ/5):LI 
NE-(255- (X-XJ) /5,191-ENTYT(X)/5) 
150 NEXT 

160 TF INKEYS="" THEN 160 
RUN 


Este programa permite ao usuário de- 
finir exatamente o cenário da estrada 
antes de desenhá-lo em perspectiva. 

Para facilitar os cálculos, ele oferece 
três funções: FNS(T) calcula a altura de 
cada poste; FNYT(X) e FNYB(X) dão 
as coordenadas Y da extremidade infe- 
rior e superior dos postes para qualquer 
posição X. Podemos imaginar o traba- 


ELSE 


lho dessas duas funções como sendo o 
de traçar duas retas que afluem para um 
determinado ponto de fuga, entre as 
quais serão colocados os postes. 

Na parte principal do programa, a li- 
nha 80 calcula o fator de escala, SF, que 
constrói um poste tomando por base a 
altura do anteriormente desenhado. A 
variável VP define o valor da coordena- 
da Y do ponto de fuga, que, por sua vez, 
depende da altura do observador e da 
altura dos postes. A coordenada X está 
sempre no centro da tela. 

Quinze postes são desenhados em ca- 
da lado da estrada pelo laço entre as hi- 
nhas 90 e 150. Os da margem direita são 
Os primeiros a serem erguidos. 

Inicialmente, a linha 100, começan- 
do a partir da extremidade direita da te- 
la, decresce o valor da posição X, até 
que a altura do poste, calculada por 
EFNS(T), se encaixe exatamente entre as 
linhas criadas por FNYT e FNYB. Fei- 
to isso, a primeira parte da linha 110 de- 
senha o poste, enquanto a porção res- 
tante manipula as variáveis XJ e YJ, que 
são fatores de escala para a construção 
da parte superior (suporte dos fios). A 
linha 120 é responsável por essa última 
tarefa. 





SOMBREAMENTO 


Além da perspectiva, existem outras 
técnicas capazes de dar tridimensiona- 
lidade aos gráficos. A mais comum de- 
las é o sombreamento. Infelizmente, a 
falta de variação de tons das cores cons- 
titui um grande problema quando ten- 
tamos aplicar essa técnica aos compu- 
tadores domésticos. Com isso, torna-se 
extremamente difícil criar o sombrea- 
mento necessário para um desenho em 
três dimensões. 

Já os computadores maiores, ofere- 
cendo uma rica gama de tonalidades, fa- 
zem dessa tarefa algo bem mais fácil. 


PLANETAS PONTILHADOS 





E possível acrescentar sombras a uma 
figura qualquer colorindo apenas alguns 
pontos em sua região mais escura e a 
maioria deles nas partes mais claras. 
Portanto, o número de pontos acesos 
em uma certa área do objeto é que irá 
determinar a claridade. 

Com a variação gradual da densida- 
de nas diferentes regiões, poderemos 
criar o efeito de sombreamento. O pró- 
ximo programa utiliza essa técnica pa- 
ra desenhar um grupo de esferas. Elas 
se parecem tanto com planetas girando 
no espaço que o programa chega a con- 








cluir um fundo estrelado e a desenhar 
um anel ao redor de algumas delas, 


10 BRIGHT O: 
O: INK 7: CLS 
20 FOR I=1 TO 100: 
255, AND*175: NEXT I 
25 LET F=0: FOR T=1l TO 3 
30 LET CL=RND*5+2 

40 LET XC=RND*195+30: 
RND*115+30 

50 LET S=RND*30 

60 FOR K=-5 TO 5 


BORDER O: PAPER 


PLOT RND* 


LET YC= 


70 IF INT (K)=0 AND F=0 THEN 
PLOT  INVERSE 1; OVER 1;XC-L* 
2, YC: DRAW INK CL;L*4,0: LET 
F=1 


BO LET X=5QR 
90 LET X2=2*ÃK 
100 FOR L=-X TO X 


(S*S-K*K) 


110 PLOT INK CL; INVERSE 1;XC 
+L, YC+K: IF RND*X2-X<L THEN 
PLOT INK CL;XC+L,YC+K 

120 NEXT L 

130 NEXT K 

140 NEXT T 








EU O O O 


=— 5 — 
0 A | | , [a .” 0 


ERR! 
|] || | 


150 PAUSE O 


10 PMODE 3,1:PCLS3:SCREEN 1,0 
20 FOR K=1 TO 100:PSET(RND(256) 
-1, RND(192)-1,2) :NEXT 

25 FOR T=1 TO B 

30 XC=AND(195)+30:YC=RND(131)+3 
0 
40 
50 


CL=AND (3) :CL=CL-(CL=3) 
S=RND(25)+5 

60 FOR K=-9 TO 8 

70 IF K=1 AND AND(4)=1 THEN CIR 
CLE(XC, YC),5*1.5,RND(4),0 

80 X=SQR(S*5-K*K) 

90 X2=2*X 

100 FOR L=-X TO X STEP 2 

110 IF RND(X2)-X<L THEN COLOR € 
L ELSE COLOR 3 

120 PSET(XC+L, YC-K) 

130 NEXT L,K 

140 NEXT T 

150 GOTO 150 


10 HCOLOR= 3: HGRZ2 


20 FOR K = 1 TO 100: HPLOT JIN 

T (279 * BND (1) + 1), INT (19 
1 * BND (1) + 1): NEXT K 

£à FORT =1TOB 

0 HC = INT ( RND (1) * 195 + 
SU) :TC = INTO BND (1) * 131 + 
30) 

40 CL = INT ( RND (0) * 3 + 1) 
"CL = CL- (CL= a) 

50 S = INT ( BND (1) * 25 + 5) 

60 FOR K = - S TOS 

70 IF K = 1 AND INT ( BND (1) 
* 4 + 1) = | THEN GOSUB 160 

BU X = SQR'(5 * 5 - K * K) 

90 X2 = 2 *X 

100 FOR L = - X TO X STEP 2 

110 IF INT ( AND (0) * X2+1 
) - X < L THEN HCOLOR= CL: GOT 

O 120 

115 HCOLOR= 3 

120 HPLOT XC + L,YC - K 

130 NEXT L,K 

140 NEXT T 

150 GOTO 150 

160 FOR A = 0 TO 6.28 STEP 05 

170 HPLOT S * 2* COS (A) + X 

CS * 5 * SIN (A) + TC 











180 
190 






NEXT A 
RETURN 





10 COLOR 15,1,1:SCREEN 2 

20 FOR K=1 TO 100:PSET (INT (RND( 
1) *256), INT (BND(1)*192)):NEXT 
25 FOR T=1 TO B 

30 XC=INT (RND(-TIME)*195)+30:YC 
=INT (RND(-TIME)*131)+30 

4O CL=INT(AND(1)*3):CL=CL-(CL=3 
) 

50 S=INT(RND(1)*25)+5 

60 FOR K=-5 TO 5 

7O IF K=1 AND INT(BND(1)*4)=1 T 
HEN CIRCLE(XC,YC),8*1.5,9,0,,.2 
o 

BO X=SQR(S*S-K*K) 

90 X2=2*X 

100 FOR L=-X TO X STEP 2 

110 IF INT(RND(1)*X2)-X<L THEN 
COLOR CL ELSE COLOR 3 

120 PSET(XC-L,YC-K) 

130 NEXT L,K 

140 NEXT T 

150 GoTo 150 


























O cenário de estrelas é feito pela li- 
nha 20, que acende aleatoriamente 100 
pontos na tela. Oito esferas serão dese- 
nhadas (nos micros da linha Spectrum 
apenas três) pelo laço entre as linhas 25 
e 140. A linha 30 escolhe uma posição 
casual para o centro de cada esfera, e 
as linhas seguintes determinam cor e 
tamanho. 

O procedimento geral para a criação 
de cada esfera consiste em preenchê-la, 
de baixo para cima, com retas horizon- 
tais. Esse trabalho é controlado por 
meio da variável K, que tem — S como 
valor inicial (a coordenada Y da parte 
mais baixa da esfera) e +S como valor 
final (a coordenada Y da parte mais al- 
ta da esfera). 

A linha 80 define a coordenada X do 
início de cada reta através da equação 
para construção do circulo. X2 é o com- 
primento de cada reta. 

As linhas 100 e 130 determinam a cor 
das linhas. A variável L pode ser consi- 
derada como a luminosidade de cada re- 
gião; seu valor varia segundo a distân- 
cia entre o ponto e a borda do círculo. 
Um número aleatório (dependendo do 
comprimento da reta) é escolhido pela 
linha 110; caso seja menor que a clari- 
dade da região, define-se o ponto a ser 
plotado como sendo de cor preta. Se, ao 
contrário, o número for maior, O pon- 
to será definido como sendo da cor es- 
colhida na linha 40. 

Por fim, a linha 135 desenha um anel 
ao redor de dois ou três planetas. 

Experimente adaptar estas rotinas pa- 
ra sombrear outros sólidos, como cilin- 
dros ou superfícies planas. 




















FO 
DE TELAS 


Se você já se deu ao trabalho de es- 
crever um programa, certamente enfren- 
tou dificuldades na padronização da en- 
trada dos dados. Quantas vezes não foi 
preciso verificar o número máximo de 
caracteres de uma cadeia string, para 
que não excedesse o tamanho do seu ar- 
quivo, ou manipular uma data para dar- 
lhe um formato adequado? 

A rotina que publicamos aqui resol- 
ve esses e outros problemas, padroni- 
zando o formato de entrada de dados e, 
ainda, melhorando sua apresentação. 
Ela fornece formatos definidos para a 
entrada de dados numéricos, alfanumé- 
ricos, data e hora. Além disso, para que 
você tenha uma preocupação a menos, 
encarrega-se de verificar a validade das 
datas e horas. 











COMO USAR A ROTINA 


A utilização da rotina de formatação 
é simples. Digite o programa e execute- 
o, para ter uma amostra do que ela faz. 
Antes de chamar a rotina, você precisa- 
rá apenas entrar um parâmetro que de- 
finirá o formato e o tipo de dado que 
a máquina aceitará. 

O parâmetro será fornecido pela va- 
riável P$, já que o BASIC não permite 
a passagem direta de parâmetros para 
as sub-rotinas. Assim, se você quiser dar 
entrada a uma data, a variável P$ deve- 
rá conter a letra €C (faça P$='*C"' e use 
“calendário”” como mnemônico); para 
a entrada de hora, P$ conterá o valor 
H (P$='“'H”). Como esses dois forma- 
tos são fixos, basta uma só letra. 

Para a entrada de números e de va- 
riáveis alfanuméricas, mais informações 
serão necessárias. Na entrada de núme- 
ros, a variável P$ deverá conter a letra 
D seguida de dois valores, que indicam 
o número de algarismos (incluindo o 
ponto decimal) e o número de casas de- 
cimais. O primeiro valor deve ter sem- 
pre dois dígitos (até 9, coloque O antes 
do algarismo significativo); o segundo, 
apenas um dígito (use uma vírgula para 
separá-lo do anterior). Se você quiser, 
por exemplo, dar entrada a um número 
de nove digitos, dois dos quais decimais, 
use: P$=''D09,2"*. Para a entrada de 
variáveis alfanuméricas, utiliza-se a le- 


O 


tra G (lembre-se de “geral”, já que 
aqui são aceitos números e letras), se- 
guida do número máximo de caracte- 
res a serem digitados. Para a entrada de 
um nome de até trinta caracteres, use: 
P$= “G,30”. 

Definido o parâmetro, chama-se a 
sub-rotina por meio do comando GO- 
SUB 600. Se for conveniente, você po- 
derá renumerá-la e colocá-la em qual- 
quer parte do seu programa. Nesse ca- 
so, não se esqueça de mudar o número 
da linha pedida pelo GOSUB. 

Depois de digitada, a informação é 
armazenada na variável W$. Para usar 
seu conteúdo, é necessário transferi-lo 
para outra variável cujo valor não seja 
alterado pela sub-rotina. Uma linha de 
programa que utiliza a rotina de entra- 
da de dados fica assim: 


100 PRINT "VALOR DO SALARIO” ;: 
P$="D0B, 2” :GOSUB 600:SA=VAL (W$) 


Quanto à localização do formato pa- 
ra a entrada de dados na tela, a rotina 
também é simples. Seu ponto inicial se- 
rá aquele em que você tiver deixado o 
cursor antes de chamar a rotina, Para 
marcar esse ponto, coloque um ponto 
e vírgula no fim da mensagem. Se essa 
posição não lhe convier, posicione o cur- 
sor com HTAB e VTAB. 

Como está, a rotina não trabalha 
bem se o formato ficar dividido em duas 
linhas, pois só o posicionamento hori- 
zontal é monitorado. Mais à frente, ve- 
remos como modificar essa situação. 


FUNCIONAMENTO 





A rotina começa na linha 600, onde 
a variável PH passa a conter o valor da 
atual posição horizontal do cursor. A 
posição de memória 36 armazena valo- 
res de O a 39. Somamos 1 ao valor em 
questão, tornando-o equivalente ao usa- 
do por HTAB. A variável PP passa en- 
tão a conter o valor ASCII da letra que 
caracteriza o parâmetro. Com base nes- 
sa variável, o programa será desviado 
adequadamente na linha 604. As linhas 
indicadas em 604 atribuem os valores 
necessários às variáveis que controlam 
o funcionamento da sub-rotina. 





Aprenda a montar telas para 
entrada de dados formatados nos 
computadores Apple e TK-2000. 

A padronização tornará seu trabalho 
mais profissional e confiável. 


Examinemos essas variáveis. Inicial- 
mente, P contém o comprimento do da- 
do a ser digitado. Para data e hora, es- 
se valor é fixo; para outros tipos de da- 
do, é lido de PS. 

PF indica o ponto em que se poderá 
deixar a rotina. Assim, para entradas al- 
fanuméricas, seu conteúdo é | — ou se- 
ja, pelo menos um caractere tem que ser 
digitado, não se aceitando entradas va- 
zias. Nos demais casos, PF é iguala P, 
forçando o uso de todos os campos do 
formato de entrada. Isso impede que 
uma data seja digitada pela metade ou 
que se omita a parte decimal de um nú- 
mero (mesmo que seja 0). 

Duas outras variáveis, Pl e P2, mar- 
cam a posição onde se usam caracteres 
fixos no formato. Assim, para datas, O 
caractere “'/”” é utilizado duas vezes. A 
posição é contada a partir de O. 

Finalmente, as variáveis alfanuméri- 
cas iniciadas por W servem para mon- 
tar a linha de formatação, que ficará ar- 
mazenada em WDS. 

Depois que o conteúdo dessas variá- 
veis foi definido, a execução converge 
para a linha 618. Aí terá início a entra- 
da de dados propriamente dita. O for- 
mato é colocado na posição lida pela li- 
nha 600 e as variáveis WS, WIS$ e PX 
são limpas, passando a conter a posição 
do caractere dentro do string que está 
sendo trabalhado. 

A linha 626 indica o caractere corres- 
pondente à posição atual do cursor, 
usando operações lógicas. Para Isso, O 
computador atribui valor | às relações 
verdadeiras, e 0, às falsas. Assim, todas 
as comparações são condensadas em 
uma única linha, evitando-se o uso de 
várias instruções IF. 

O caractere indicado é colocado em 
sua posição e, em seguida, O cursor é re- 
posicionado. Espera-se então a entrada 
de um caractere pelo teclado (linha 628). 
A rotina só particulariza dois tipos de 
caractere: o carriage return (ou seja, 
<CR>, cujo código é 13) e o back- 
space (ou +, de código 8). Os demais são 
tratados em grupo. 

Ao se digitar <CR>, o caractere se- 
rá reconhecido pelo seu código, que es- 
tá armazenado na variável PA. Note que 
ele só terá efeito se a posição do carac- 
tere atual (PX) for maior ou igual ao 








ponto de saída definido (PF). Assim, se 
estivermos entrando uma data, não po- 
deremos deixar a rotina antes de digitar 
o último caractere. 

O back-space (linha 632) só terá efei- 
to se estiver além do primeiro caractere 
(PX > 0). Nesse caso, a rotina é desvia- 
da para a linha 644 e o valor 1 é sub- 
traído de PH — ou seja, a tabulação ho- 
rizontal retrocede uma posição. Se PX 
está apagando o primeiro caractere 
(PX = 1), volta-se para a linha 620, ce o 
processo recomeça. Na linha seguinte, 
PX é decrementado de 1, pois estamos 
retornando a uma posição anterior. Ve- 
rifica-se então se o cursor não caiu so- 
bre um dos caracteres fixos do formato 
(cujas posições são representadas por Pl 
e P2). Em caso afirmativo, recua-se o 
cursor mais uma posição. Na linha 648, 
o conteúdo de W$ (onde a entrada está 
sendo montada) é atualizado e retoma- 
se o ciclo. 

Não sendo <CR> ou, o caracte- 
re digitado é interpretado como uma en- 
trada de dado. As linhas 634 a 638 che- 
cam se ela é válida. Para valores de PP 
iguais a 1,2 e 6 (3 e 4 não são usados), 
apenas números são admitidos. Para 
PP igual a 5 (entradas alfanuméricas) 
admitem-se letras maiúsculas e núme- 
ros. Se O caractere não for válido, a exe- 
cução é devolvida à linha 628. Caso con- 
trário, a linha 640 se encarrega de 
colocá-lo na tela e adicioná-lo à variá- 
vel W$, incrementando, em seguida, PH 
e PX. Verifica-se então se o cursor foi 
para uma posição de caractere fixo, que 
deve ser saltado. 

Após todos esses passos, retornamos 
à linha 624, que encerra a entrada quan 
do o último caractere do dado é digita- 
do, desviando a execução para a linha 
650. Esta linha e a 652 voltam a impres- 
são de tela para o modo NORMAL e 
apagam a parte não utilizada do forma- 
to. Nesse ponto, a rotina de entrada de 
dados está terminada. Segue-se a checa- 
gem da validade de datas e horas por 
meio de operações lógicas. 


APERFEIÇOAMENTOS 


Podemos agora fazer algumas modi- 
ficações na rotina — por exemplo, 





UMA ROTINA PARA 
ENTRADA DE DADOS 
| ER DEFINIÇÃO 

— DO PARÂMETRO 
Di TIPOS DE DADOS 


transferir a declaração da variável WWS$ 
da linha 601 para o início do programa, 
visto que só é necessário defini-la uma 
vez, e não sempre que a rotina for utili- 
zada. Talvez você não precise usar to- 
dos os tipos de entrada. Nesse caso, é 
possivel retirar as partes dispensáveis da 
rotina, pois elas são independentes. 
Com isso, economiza-se um pouco de 
memória. 

Também é interessante fazer com que 
a tabulação vertical seja controlada, de 
modo que se possam entrar valores com 
mais de 39 caracteres. 


Dajtol 


10 HOME 
20 PRINT TAB( 8) PDEMONSTRACAO 
DE ENTRADA”; TAB( 55)"DE DADOS 


PRINT "SENHA DF ACE 
"6,05": GOSUB 600: 
“SENHA” THEN END 
PRINT "DATA DE HOJE 
GOSUB 600:DTS = 


30 VTAR 6: 
 Praps m 
IF W$ << > 
40 VTAB B: 
PED do TO 
WS 


50 VTAB LO: PRINT "HORA: ";:PS 


= "H”: GOSUB 600:HRS = WS 
60 VTAB 12: PRINT "DIGITE UM UV 
ALOR: ": VTAB 13: HTIAB 6:PZ =” 
D10,3”: GOSUB G6GDO:VA = VAL (WS 
) 

?O PRINT PRINT DTS: PRINT HR 
5: PRINT VA 

80 END 

506 REM FEARAREKHARRARAAHA 
597 REM *** SUB ENTRADA *** 
BOB REM MMA DESCEM DM O E 
599 HEM 
600 PH = PEEK (36) + i:PP = A 
SU (PS) - 66 

GO MG O SER alo 


ESC E "+ REM *D 
EFINA ESTA VARIAVEL NO INICIO D 
O SEU PROGRAMA * 

602  INVERSE 
604 ON PP GOTO 606,608,0,0,612 
(1616 
606 P = 
WDS = "DD/MM/AA":WCS = "7": 
O 618 
608 P = 
= VAL ( RIGHTS 
= O THEN 614 
610 PF = P:P1l = 
PL:WCS = ".":WDS = 
Pl) + WCS + LEFTS (WWS,D): 
o 618 


O a 


B:PF = P:Pl = Z:PZ2 = 5: 
GoT 


VAL ( MIDS (P5,2,2)):D 
(P8,1)): IF D 


P-D- 1:P2 = 
LEFTS (WWS, 
gor 





Ei ARMAZENAGEM 

DA INFORMAÇÃO 
E POSICIONAMENTO DO CURSOR 
EE “COMO FUNCIONA 


bg APERFEICOAMENTOS 


612 P = VAL ( RIGHTS (PS,2)) 

614 PF = 1:Pl.= 99:P2 = P1:WD3 
= LEFTS (WW5S,P):WCS = "": GOTO 
618 

616 P = 5:PF = P:Pl = 2:P2 = P1 
:'WDS = "HH:MM"P:WCS = ":* 

618 HTAB PH: PRINT WDS; 

620 WS = "".UIS = ”" 

622 PX = LEN (WS) 

624 IF PX = P THEN 650 


626 WA = 95 * (PP = 2 OR PP =õ5 
1 +68 * (PP = | AND PX< 2) + 
77 * ((PP = 1 AND PX > 2 AND PX 
< 5) OR (PP = 6 AND PX > 2)) + 
65 * (PP = 1 AND PX > 5) + 72 
* (PP = 6 AND PX < 2) 


628 HTAB PH: PRINT CHBS (WA): 
: HTAB PH: CET WIS 

630 PA = ASC (WIS): IF PA = 143 
AND PX > = PF THEN 650 

6 32 IF PA = B&B AND PX > O THEN 

b44 

634 1F PP = 5 THEN 638 

636 IF PA < 48 OR PA > 57 THEN 
628 

638 IF PA < 32 OR PA >lIZ?7 THE 

N 628 

640 HTAB PH: PRINT CHBS (PA); 
“WS = W5 + WIS:PX = PX + 1:PH = 
PH + 1: IF PX = Pl OR PX = PZ 

THEN. PX = PX + L:PH ='PH + 1:W5 
= WS + WCS 

6bd2 GOTO 624 

644 PH = PH - 1: IF PX = 1 THEN 
620 

646 PX = PX - 1: IF PX = P1 OR 
PX = P2 THEN PH - PH - 1:PX = P 

W 

648 W5 = LEFTS (W5,PX): GOTO 6 
26 

650 NORMAL FOR X = 1 TO P - 
LEN (WS) 

652 PRINT CHRS (32);: NEXT 


654 ON PP GOTO 656,666,0,0,666 
1660 
656 D = VAL ( LEFTS (WS,2)):M 
= VAL ( MIDS (W5S,4,2)):A = VA 
L ( RIGHTS (W$,2)) 
658 V = ((M = 4) + (M = 6) + (M 
- 9) + (M => 1) * AD 50) + 
(M = 2) * (CINTIA / 4) = A / 
4) MAD 2 29) + À INTIAS 4) < 
2 (A / 4)) * (D > 28)) + ((A 
Ad FAMA) MIO + 


« 1) + (D > 31)): GOTO 664 
660 H = VAL ( LEFTS (WS,2)):M 
= VAL ( RIGHTS (W3,2)) 

662 V = (H > Z4)+(MÃA2>s9) 
664 IF V THEN PRINT CHAS (7) 
::PH = PH - LEN (WS): INVERSE 
: GOTO 618 

666 PRINT RETURN 














UM EDITOR 











Existem duas maneiras de fazer o mi- 
crocomputador tocar música. A primei- 
ra consiste em introduzir a melodia co- 
dificada em números dentro de um pro- 
grama. A segunda, em utilizar um edi- 
tor musical que cuide de toda a codifi- 
cação, deixando ao usuário apenas a ta- 
refa de digitar as notas. 

Já vimos em INPUT como progra- 
mar o micro para executar melodias. O 
processo é simples, mas requer um bom 
conhecimento dos comandos musicais 
do BASIC. Como estes nem sempre têm 
muita relação com música, o '“'composi- 
tor” é obrigado a consultar constante- 
mente tabelas ou manuais, para verificar 
os valores adequados para a tonalidade, 
duração e volume, entre outros parâme- 
tros de cada nota. A notação macromu- 
sical do MSX e do TRS-Color facilita 
esse processo, mas não elimina o traba- 
lho com o restante do programa 

A execução de música através «< pro- 
gramas apresenta outras desvantagens, 
como a dificuldade de editar a melodia 
e a impossibilidade de ouvir as notas an- 
tes que o programa esteja completo. 


Além disso, para cada peça temos que 


escrever um novo programa. 

Um editor musical cuida de todos os 
detalhes da codificação, deixando o 
usuário livre para tratar da melodia pro- 
priamente dita. Não é preciso conheci- 
mentos de programação para usá-lo, 

Como os programas são bem longos, 
foram divididos em três partes. Digite 
agora a primeira parte e grave-a, para 
mais tarde completar a listagem. 


COMO DIGITAR AS NOTAS 





Uma vez que tenhamos o programa 
completo na memória do computador, 
poderemos selecionar as notas de várias 
maneiras. O processo será explicado 
pormenorizadamente para cada uma das 
máquinas no último artigo desta série. 

Seja qual for o método escolhido, o 
usuário sempre terá a chance de alterar 
a melodia — mudando, inserindo ou 
apagando notas — até obter o resulta- 
do desejado. Se quiser conferir o traba- 
lho, poderá executar a música — mes- 
mo incompleta — a qualquer instante. 

O editor musical permite ainda a mu- 
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SICAL (1) 


dança do andamento da oitava e, no ca- 
so do MSX, do timbre da nota. 

As notas são selecionadas por meio 
de seus nomes (A, B, €, D...) ou do te- 
clado, que é usado como se fosse um 
piano. Se o usuário preferir, poderá 
combinar os dois sistemas, introduzin- 
do nota por nota em certos trechos e 
executando outros no teclado. 


10 BORDER O: PAPER O: INK 7: 
CLS 

40 LET maxnotes=1500: LET ct= 
O: LET tempo=.1l: POKE 23609, 
128: POKE 23658,0: DIM m(35) 
95 FOR 1=1 TO 35: READ m(i): 
NEXT 1 

100 DIM t (maxnotes+1): GOTO 
110 

105 CLS PRINT "Aguarde. Musi 

ca sendo apagada.” 

110 FOR i=1l TO maxnotes: LET £ 
(1)=0: NEKT 1 

190 CLS 

200 PRINT INVERSE L;AT 0,6;”7 


MENU PRINCIPAL ”"; INVERSE 0;'** 
'TAB 5;"[1] Tocar pelo teclado 
"""PAB 5:"[2] Entrar notas”'* 
TAB 5:"[3] Tocar de novo" 

210 PRINT 'TAB 5;"[4] Editar m 
usica"''"'TAB 5;"[5] Apagar musi 
ca" '*TAB 5;"[6] Salvar musica” 
'ºTAB 5;"[7] Carregar musica” 


270 PRINT '"'"TAB 5:;"Opcao [8] p 
ara sair”; 
300 LET AS=INKEYS: IF AS="" 
THEN GOTO 300 
310 LET A=CODE (AS) 
320 1F (A<49 OR A>55) AND AS> 
113 AND A<>81 THEN GOTO 190 
330 1F A=49 THEN  GOSUB 1000 
340 IF A=50 THEN GOSUB 2000 
3580 IF A=5) THEN GOSUB 3000 
360 IF A=52 THEN GOSUB 4000 
365 IF A=53 THEN GOTO 105 
366 IF A-54 THEN  GOSUB 5000 
367 IF A=55 THEN GOSUB 6000 
370 IF A=115 OR A=83 THEN 
STOP 
380 GOTO 190 
1000 CLS 
1001 LET len=1l: LET 15="Semicol 
cheia” 
1002 INPUT "[CJONTINUE DA ULTIM 
à NOTA OU [TINTCIE NOVA MUSI 
CA ?! “518 
1003 IF 1S8<>"c” AND 19€>"1" THE 
N GoTo 1002 
1004 LET num=1l: IF 15="c' THEN 





Transforme o microcomputador em 
uma partitura com composições 
musicais de sua própria autoria 
e, ainda, em uma orquestra que 
execute as melodias recém-criadas. 


| io 


num=ct*2Z+1: LET tns=num 
1005 IF 15=":1" THEN LET ct=0 
1010 PRINT "Toque as notas nas 
teclas de"'"<Q> - mais balxa 
ate"'"<M> - mais alta” ' "Duas 
oltavas e meia estao disporniv 
eis, sendo a tecla <I> o C 
medio”'"""* 
1060 PRINT 
nota=”" 
1070 FOR i=1l TO 100: NEXT à 
1075 LET 08="" 
1080 LET NS=INKETYS: 
EN GOTO 1075 


LET 


AT 17,0;"Duracao da 















1085 IF N$=0S THEN GOTO 1080 
| 1090 LET N=CODE (NS) 
| 1091 IF N=33 THEN LET lenz=l: 
ET I$="Semicolcheia" 
1092 IF N=64 THEN LET len=2: 
: ET 1I8="Colcheia” 
1093 IF N=35 THEN LET lensá: 
ET 1I$="Seminima” 
1094 IF N=36 THEN LET len=B: 
ET I$="Minima” 
1096 IF N=37 THEN LET len=lé6: 


LET I$="Semibreve” 
| 1097 PRINT AT 17,16;" 


TRES!” 


7 — EXECUÇÃO DE MELODIAS 
ATRAVES DE UM PROGRAMA 


= VANTAGENS DO 
! EDITOR MUSICAL 
e COMO DIGITAR 


1099 IF N<>32 AND N<>13 THEN G 
OTO 1109 

1100 IF 158="1" THEN LET ct=INT 

(num/2): RETURN 

1102 LET ct=ct+INT ((num-tn)/2) 
: RETUAN 

1109 IF N<60 THEN LET index=N- 
47 

1110 IF N>90 THEN LET index=N- 
B7 

1112 IF N>=60 AND N<=90 THEN G 
OTO 1080 


1115 IF index=5 OR index=9 OR à 





AS NOTAS 
ALTERAÇÃO DA MELODIA 
— CONFERÊNCIA 
COMPOSIÇÃO DE PEÇAS 
SELEÇÃO DE NOTAS 


ndex=16 OR index=20 OR index=21 


THEN GOTO 1080 

1116 IF index=2 THEN LET t (num 
)J=len: LET t (num+1)=-4: GOTO 11 
Z7 

1118 IF index<=0 THEN GOTO 10BR 


O 

1120 SOUND len/10,m(index) 

1125 LET t(num)=len: LET t (num+ 
l)j=m(index) 

1126 PRINT AT 15,0;INT (num/2)+ 
1;" notas na memoria” 

1127 LET numsnum+2 

1130 LET 05=NS 

1140 GOTO 1080 


Ji 
Fado 


LO CLEAR 5000:MX=250 

20 Rl$="whgestu”" :R25="1234567B" 
30 R3$="abcdef qCDFGAp” 

40 NY5="Q2WI3ER5ST6Y/7UIGO0PZSXDCF 

VBHNJM,L.Ç/[<"+CHRS (30) +CHRS (31 
) +CHRS (29) +CHAS (28) +” "+CHAS(I18 
)J+CHAS (127) +CHARS (13) +CHAS (11) 
50 DIM NS (MX),CS(12) 

60 FOR I=1TO7:READ LES(I),LZS(I 
) :NEXT 

70 FOR I=1TOlLZ :READ CS(T):NEXT 
BO DATA SEMTBREVE, L,MINIMA,2Z,SE 

MINIMA, 4, COLCHEIA,8, SEMICOLCHEI 

A, Lê, FUSA, 32, SEMIFUSA, 64 

90 DATA c,C,d,D,e,f,F,g,.G,a,A,b 
100 FOR I=1 TO MX:NS(Ij="*ax*". 
NEXT 

110 NN=0: 
* «LE=1 
120 CLS:COLOR 15,2:KEY OFF:LOCA 
TE 4,1:PRINT"COMPOSITOR MUSICAL 
MENU PRINCIPAL” 

130 LOCATE 6,3:PRINT"I]:RECUPERA 
MUSICA DA FITA” 

140 LOCATE 6,4:PRINT"2:SALVA MU 
SICA NA FITA" 

150 LOCATE 6,5:PRINT"3:TOQUE NO 
TECLADO" 

160 LOCATE 6,6:PRINT"4:COLOQUE 

UMA TABELA DE NOTAS" 

170 LOCATE 6,7:PRINT"S:MUDE O T 
EMPO DE EXECUÇÃO” 

1BO LOCATE 6,B:PRINT"6:LISTA/ED 
ITA NOTAS" 

190 LOCATE 6,9:PRINT"Z:TOCA AM 
USICA DA MEMORIA" 

200 LOCATE 6,10:PRINT"B:MUDANÇA 
GERAL DE OITAVA” 

210 LOCATE 6,11:PRINT"9:SAI DO 
PROGRAMA" 

220 LOCATE 5,19:PRINT"ENTRE COM 
O NUMERO DA OPÇÃO”; 

230 AS=INKEYS :IF AS<"1" 
“94” THENZ30 


0C9="4":TE=120:LES="w 


OB AS> 





240 OP=VAL (AS) 

250 ON OP GOSUB 2080,2210,500,8 
10,300,1510,1760,1910,270 

260 GOTO 120 

270 CLS: PRINT"VOCÊ TEM CERTEZA( 
8/N)?" 

280 AS=INKEYS:IF AS<>"S”" AND AS 
<>"N” THEN 280 

290 IF AS="98" THEN CLS:COLOR 15 
«4: END ELSE 120 

300 CLS:COLOR 15,4:PRINT"MUDANÇ 
A DO TEMPO DE EXECUÇÃO” 

310 PRINT: PRINT"TEMPO ATUAL:";T 
E 

320 PRINT"ENTRE NOVO VALOR DE T 
EMPO”;: INPUT ST 

330 IF ST=0 THEN RETURN 

340 IF ST<32 OR ST>255 THEN 320 
350 TE=ST:RETURN 

360 LOCATE 6,7:PRINTCNOTA OI 
TAVA DURAÇÃO” 

370 U=9 

380 FOR L=NN-5TONN 

390 IF L<l THEN 490 

400 LOCATE 1,U:PRINT TAB(20);" 


410 LOCATE 1,U:PRINT USING" 4 
de dA 

420 AS=NS(L) 

430 BS=LEFTS(AS,1):IF BS>="a” A 
ND BS<="q" THEN C5=CHRS (ASC(BS) 
-32)+" "ELSE CS=BS+"4" 

440 TF B$="p” THEN C$="- " 
450 PRINT ” ":;C8;" 
S(AS,2,1); " 

460 PRINT ETTA E: MIDS (AS 
13,1)))% 

470 IF MIDS(AS,4,1)=" 
INT” .” ELSE PRINT 

480 U=U+1: 

490 NEXTL:RETURN 

500 CLS:COLOR 15,4,15:C=VAL (OCS 
)J:IF C>6 THEN C=6:0C5="6" 

510 LOCATE 13,1:PRINT"MODO ORGA 
O” 

520 LOCATE 16,4:PRINT ;” 


"MID 


.* THEN PR 


830 LOCATE 1,3:PRINT"OITAVA MAX 
IMA:”";C;TAR(46);"DURAÇÃO:";LES( 
INSTR(RIS,LEFTS(LES,1))); 

540 TF MIDS(LES,2,1)="." THEN P 
RINT”.”" ELSE PRINT 

550 LOCATE O, L9:PRINTO—-———————— 


a —— — o ——— SS e 


560 LOCATE 0,20:PRINT” / =OITA 
VA (INS/DEL) /  =DURAÇÃO” 


570 LOCATE 0,21:PRINT"ENTER =ME 
NU CLS=APAGA” 


580 GOSUB 360 

590 IF NN=MX THEN LOCATE 1,18B:P 
RINT"MAXIMO NUMERO DE NOTAS COL 
OCADO!”;:FOR S=1T03000:NEXT:RET 

URN 

600 IS=INKEYS:IF 15="" THEN 600 
610 P=INSTR(NTS, EB IF P=0 THEN 
600 

620 IF P>36 THEN 650 

630 0CS=MIDS (STARS (C+INT((P-1)/1 
2)1),2):15=CS(P-AZ*INT((P-1)/12) 
) 





640 GOTO 750 


10 CLEAR 5000 

20 MX=250:R1l$="whqes" :R2$="1234 
5":R3$="abcdefgCDFGAp” :NYS="Q2W 
3ER5ST6Y7UI90O0PEAZSXDCUGBHNMK,L. 
"+CHR$S (103)+"/""+CHRS (10) +CHRS$( 
8) +CHRS (9) +” "+CHRS (21) +CHRS (93 
) +CHRS (13) +CHRS (12) 

30 DIM NS (MX),C5S(12) 

40 FOR I=1l TO 5:READ LES(I),L25 
(I) :NEXT 

50 FOR I=1 TO 12:READ CS(I):NEX 


A 

60 DATA SEMIBREVE, 1,MINIMA,2,5SE 

MINIMA, 4, COLCHEIA,8B, SEMICOLCHEI 

A, 16 

70 DATA c,C,d,D,e,£f,F,9,G,a,A,b 

BO FOR I=1l TO MX:NS(1)="****":N 

EXT 

90 NN=0:0C5="3":TE=8:LES="wy ":L 
E=1 

100 CLS: PRINTE6,"COMPOSITOR MUS 
ICAL”: PRINT €40,"MENU PRINCIPAL 
il 

110 PRINTE96,"1:RECUPERA MUSICA 
DA FITA” 

120 PRINT"Z2: 

NA FITA” 

130 PRINT”"3:TOQUE NO TECLADO” 

140 PRINT"4:COLOQUE UMA TABELA 

DE NOTAS” 

150 PRINT"5S:MUDE O TEMPO DE DUR 

ACAO" 

160 PRINT"6:LISTA/EDITA NOTAS” 

170 PRINT”"Z:TOCA A MUSICA DA ME 

MORIA”" 

180 PRINT"B:MUDA A OITAVA GERAL 
m 


SALVA MUSICA ATUAL 


190 PRINT"9:SAI DO PROGRAMA” 
200 PRINT6452," ENTRE O NUMERO D 
à OPCAO”; 

210 AS=INKEYS:IF AS<"1I”" OR AS>” 
9" THEN 210 

220 OP=VAL (AS) 

230 ON OP GOSUB 1900,2020,480,7 
60,420,1360,1560,1720,250 

240 GOTO 100 

250 CLS:PRINT”" VOCE TEM CERTEZA 
(S/N)?7”":POKE 282,255 

260 AS=INKEYS:IF AS<>"S”" AND AS 
<>"N” THEN 260 


270 IF AS="S" THEN CLS: END ELSE 
100 

280 PRINTE132,"NOTA OITAVA D 
URACAO” 

290 RT=O 


300 FOR L=160 TO 320 STEP 32:PR 

INTEL:NEXTL: PRINTE160,"”; 

310 FOR L=NN-5TO NN 

320 IF L<1l THEN 410 

330 PRINTUSING"AHE "IL; 

340 AS=NS(L) 

350 BS=LEFT$S(AS,1):IF BS>="a"AN 

D B$<="q”" THEN CS=CHRS (ASC(B3)- 
32)+" "ELSE CS=B5+"4" 

360 IF B$="p” THEN C$="- * 

370 PRINT €CS;” ";MIDS(AS,2, 
Lim nie 

380 PRINT LES (INSTR(RIS, MIDS (AS 
ae 

































MELHORE A QUALIDADE DO SOM 

O programa apresentado neste ar- 
tigo é bastante satisfatório para à 
composição e execução musical a ní- 
vel amador. Os músicos profissionais, 
entretanto, logo notarão suas limita- 
ções — entre elas, a falta de recur- 
sos para a modulação do timbre (o 
que diferencia os vários instrumen- 
tos entre si quanto à sonoridade) e 
a impossibilidade de se obter efeitos 
polifônicos. Mas a culpa não é do 
programa. 

Mesmo o MSX, o microcomputador 
mais sofisticado em termos de progra- 
mação de efeitos sonoros, não é capaz 
de substituir um verdadeiro sintetiza- 
dor musical. Este permite a simulação 
| de um grande número de instrumentos 
de sopro, corda ou percussão, através 
da manipulação das formas de onda. 
Acoplando-o a seu microcomputador, 
por meio de uma interface MIDI (veja 
o artigo da página 1306), você poderá 
conseguir a qualidade máxima em ma- 
téria de som. 


390 IF MIDS(AS,4,1)=" 

NT"." ELSE PRINT 

400 IF RT<>0THEN RETURN 

410 NEXT L:RETURN 

420 CLS: PRINTE?,"MUDE OPCAO TEM 

PO” 

430 PRINT: PRINT"TEMPO ATUAL E”; 

TE 

440 PRINTE128," ENTRE NOVO VALOR 
DE TEMPO"; : INPUT ST 

450 IF ST=0 THEN RETURN 

460 IF ST<00RST>255 THEN 440 

470 TE=ST: RETURN 

480 CLS: POKE282,255:C=VAL (0CS): 

IF C>3 THEN C=3:0C8=" 3" 

490 PRINTE?,"MODO ORGAO” 

500 PRINTE64,"OITAVA:";C;TAB(IO 

);"DURACAO:"; LES (INSTR(RIS, LEFT 

S(LES,1))): 

510 IF MIDS(LES,2,1)=". 

RINT".” ELSE PRINT 

520 PRINT6448,"C/B=0ITAVA 

ESQ/DR=DURACAO  ENTER=MENU 
CLEAR=APAGAR” ; 

530 GOSUB 280 

540 IF NN=MX THEN PRINT6416,"MA 

XIMO NUMERO DE NOTAS COLOCADO!” 

:: FORD=1TO1000:NEXT:RETURN 

550 IS=INKEYS:IF 15="" THEN 550 

560 P=INSTR(NYS,1IS):IF P=0 THEN 
550 

570 IF P>36 THEN 600 

580 OCS=MIDS (STARS (C+INT((P-1)/1 

2)),2):1S$=CS(P-12*INT((P-1)/12) 


-."THEN PRI 


" THEN P 


) 
590 GOTO 700 








LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





INnnnENO PRÓXIMO NÚMEROEEEEEEHII 


PROGRAMAÇÃO BASIC 


Truques com o teclado do TRS-80: desativação da 
tecla <BREAK >, auto-repetição, cursor piscante. 


APLICAÇÕES 


Digite a segunda parte do programa editor de melodias. 


SOFTWARE 


Quadro de avisos. Modem. Exploração da rede. 


PROGRAMAÇÃO DE JOGOS 


Um supercompressor de textos de aventuras. 
Método chinês. 


PROGRAMAÇÃO BASIC 


Rotinas em código de máquina nas linhas 
DATA de programas em BASIC. 





